home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 009 / smartrm1.arc / DECODE.BAS < prev    next >
Encoding:
BASIC Source File  |  1985-12-27  |  3.0 KB  |  61 lines
  1. 10  REM
  2. 20  REM  PROGRAM TO CREATE STFIX.COM  ... TO BE USED FOR
  3. 30  REM  UNPROTECTING SMARTERM 100  ver.  4.0c
  4. 40  REM
  5. 50  REM  by Keith M. Bailey        12/29/85    version 0.01
  6. 60  REM
  7. 70  REM *****************************************************************
  8. 80  REM
  9. 90  REM  GET NAME OF FILE TO CREATE
  10. 100 REM
  11. 110 PRINT: PRINT "THE SMARTERM DISKETTE MUST BE IN DRIVE A: FOR THIS PROGRAM."
  12. 120 PRINT "PLACE A WRITE PROTECT TAB ON THE DISK AND PLACE IT IN DRIVE A:"
  13. 130 PRINT: PRINT: PRINT "INPUT NAME OF FILE TO CREATE FOR OUTPUT OF DECODED SECTORS."
  14. 140 PRINT "IF NOT THE DEFAULT VALUES, INCLUDE DRIVE AND PATH, IN ADDITION TO FILENAME."
  15. 150 PRINT: PRINT "         ex:   C:\SUB1\SECT.OUT"
  16. 160 PRINT: PRINT "WARNING --- IF THE FILE ALREADY EXISTS IT WILL BE DESTROYED !!!"
  17. 170 PRINT: INPUT "FILENAME  ? ",FILE$
  18. 180 REM
  19. 190 REM  ASSUME FILE NAME IS OKAY ... ADD A 00 BYTE TO THE END
  20. 200 REM
  21. 210 TEMP$=FILE$+CHR$(0): FLAG%=0
  22. 220 REM
  23. 230 REM  CALL ASSEMBLY ROUTINE TO READ SECTORS AND WRITE TO FILE
  24. 240 REM
  25. 250 CALL CREATE(TEMP$,FLAG%)
  26. 260 IF (FLAG%<>0) THEN PRINT: PRINT "ERROR WHILE DECODING PROTECTED SECTORS": GOTO 470
  27. 270 PRINT: PRINT: PRINT "THE SECTORS HAVE BEEN SUCCESSFULLY DECODED."
  28. 280 REM
  29. 290 REM  NOW MERGE THE SECTORS INTO STFIX.COM ... GET PATH IF NEEDED
  30. 300 REM
  31. 310 PRINT: PRINT: PRINT "THE DECODED SECTORS MUST BE MERGED WITH THE STFIX.COM FILE."
  32. 320 PRINT "IF NOT THE DEFAULT VALUES, INPUT DRIVE AND PATH (THE PATH MUST END WITH
  33. 330 PRINT "A BACKSLASH).  THE FILENAME IS ASSUMED TO BE STFIX.COM."
  34. 340 PRINT: PRINT "         ex:   C:\SUB1\       ...  the STFIX.COM is assumed !"
  35. 350 PRINT: INPUT "PATHNAME ? ",PATH$
  36. 360 REM
  37. 370 REM  ASSUME PATHNAME IS OKAY ... ADD STFIX.COM + 00 BYTE TO THE END
  38. 380 REM
  39. 390 TEMP$=PATH$+"STFIX.COM"+CHR$(0)
  40. 400 REM
  41. 410 REM  CALL ASSEMBLY ROUTINE TO MERGE SECTORS STILL STORED IN MEMORY
  42. 420 REM
  43. 430 CALL FMERGE(TEMP$,FLAG%)
  44. 440 IF (FLAG%<>0) THEN PRINT: PRINT "ERROR WHILE MERGING PROTECTED SECTORS": GOTO 470
  45. 450 PRINT: PRINT "THE FILE STFIX.COM IS NOW READY TO BE USED."
  46. 460 END
  47. 470 REM
  48. 480 REM  ERROR OCCURRED PRINT MESSAGE TO INDICATE CAUSE
  49. 490 REM
  50. 500 PRINT: PRINT "ERROR CODE = ";FLAG%
  51. 510 IF (FLAG%=1) THEN PRINT: PRINT "INCORRECT DOS VERSION ... MUST BE VERSION 2.00 OR HIGHER.": END
  52. 520 IF (FLAG%=2) THEN PRINT: PRINT "FILE NOT FOUND -- CHECK DRIVE, PATH, AND FILENAME GIVEN.": END
  53. 530 IF (FLAG%=3) THEN PRINT: PRINT "PATH NOT FOUND -- CHECK DRIVE, PATH, AND FILENAME GIVEN.": END
  54. 540 IF (FLAG%=4) THEN PRINT: PRINT "TOO MANY OPEN FILES": END
  55. 550 IF (FLAG%=5) THEN PRINT: PRINT "FILE ACCESS DENIED": END
  56. 560 IF (FLAG%=6) THEN PRINT: PRINT "INVALID FILE HANDLE": END
  57. 570 IF (FLAG%=16) THEN PRINT: PRINT "CORRECT NUMBER OF BYTES NOT READ OR WRITTEN -- IS DISK FULL ??": END
  58. 580 IF (FLAG%=17) THEN PRINT: PRINT "ERROR RESETTING DISKEETE SYSTEM": END
  59. 590 IF ((FLAG%<1) OR (FLAG%>15)) THEN PRINT: PRINT "INTERNAL ERROR !! ?? !!": END
  60. 600 FLAG%=FLAG%-6: PRINT: PRINT "ERROR READING TRACK 40, SECTOR # ";FLAG%: END
  61.